home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgs.dir / Internal_4_movieScriptInternal.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  653 b   |  31 lines
  1. global sessionObject, gmObject
  2.  
  3. on startMovie
  4.   puppetTempo(12)
  5.   initGmMovie(sessionObject)
  6.   gmObject = 0
  7.   v = (the movieName).char[3..4]
  8.   gmObject = new(script(v & "Script"))
  9.   set the keyDownScript to EMPTY
  10.   set the volume of sound 1 to 255
  11.   sound(4).play(member("Atmossommar", 2))
  12.   set the volume of sound 4 to 150
  13. end
  14.  
  15. on stopMovie
  16.   set the keyDownScript to EMPTY
  17.   finitGmMovie(sessionObject)
  18.   sound(4).stop()
  19. end
  20.  
  21. on keyDown
  22.   if the frameLabel <> 0 then
  23.     v = (the frameLabel).char[1]
  24.     if v = "h" then
  25.       if the keyDownScript = EMPTY then
  26.         set the keyDownScript to "gmObject.keyHit()"
  27.       end if
  28.     end if
  29.   end if
  30. end
  31.